-- card: 2913 from stack: in -- bmap block id: 3560 -- flags: 4000 -- background id: 2627 -- name: Calculator -- part 11 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=394 top=292 right=306 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 2304 -- line height: 13 -- part name: port to label -- part 12 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=394 top=320 right=334 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 2304 -- line height: 13 -- part name: port to stack -- part 13 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=281 top=320 right=334 bottom=335 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 2304 -- line height: 13 -- part name: helpRecCalc -- part 15 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=6 top=301 right=337 bottom=78 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Power ----- HyperTalk script ----- on mouseUp doPower end mouseUp -- part 17 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=335 top=317 right=338 bottom=392 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: clear ----- HyperTalk script ----- on mouseUp put empty into field "SelectionsA" put empty into field "SelectionsB" repeat with x = 1 to 12 put empty into field ("SelTimesA " & x) put empty into field ("SelTimesB " & x) end repeat click at the location of button "calculate" end mouseUp -- part 18 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=290 top=292 right=305 bottom=325 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 2304 -- line height: 13 -- part name: calculate -- part 19 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=280 top=289 right=311 bottom=335 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: calculate ----- HyperTalk script ----- on mouseUp get bkgnd fld "TapeLength" if it is "30 min" then put 900 into TimePerSide if it is "45 min" then put 1350 into TimePerSide if it is "60 min" then put 1800 into TimePerSide if it is "75 min" then put 2250 into TimePerSide if it is "80 min" then put 2400 into TimePerSide if it is "90 min" then put 2700 into TimePerSide if it is "100 min" then put 3000 into TimePerSide if it is "110 min" then put 3300 into TimePerSide if it is "120 min" then put 3600 into TimePerSide put TimePerSide into TimeLeftA put TimePerSide into TimeLeftB put empty into AccumTimeA put empty into AccumTimeB repeat with x = 1 to 12 get field ("SelTimesA " & x) if it is empty then next repeat if the length of it < 6 then put "00:" before it add rawSeconds(it) to AccumTimeA end repeat put stripExcess(AccumTimeA) into field "AccumTimeA" subtract AccumTimeA from TimeLeftA put stripExcess(TimeLeftA) into field "TimeLeftA" repeat with x = 1 to 12 get field ("SelTimesB " & x) if it is empty then next repeat if the length of it < 6 then put "00:" before it add rawSeconds(it) to AccumTimeB end repeat put stripExcess(AccumTimeB) into field "AccumTimeB" subtract AccumTimeB from TimeLeftB put stripExcess(TimeLeftB) into field "TimeLeftB" end mouseUp -- part 20 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=393 top=289 right=310 bottom=507 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: porttolabel ----- HyperTalk script ----- on mouseUp put bkgnd field "SelectionsA" into Aside put bkgnd field "SelectionsB" into Bside put bkgnd field "TapeLength" into tapelength go to card "labeler" click at location of button "clear" put Aside into field "A1" put Bside into field "B1" put tapelength into field "tape length" end mouseUp -- part 22 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=134 top=302 right=333 bottom=176 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: LPswitch ----- HyperTalk script ----- on mouseUp go to any card of background "LP" of stack "AudioVideo Library" end mouseUp -- part 23 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=183 top=302 right=333 bottom=225 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: TAPEswitch ----- HyperTalk script ----- on mouseUp go to any card of background "TAPE" of stack "AudioVideo Library" end mouseUp -- part 24 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=230 top=302 right=333 bottom=272 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: VIDEOswitch ----- HyperTalk script ----- on mouseUp go to any card of background "VIDEO" of stack "AudioVideo Library" end mouseUp -- part 25 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=278 top=316 right=338 bottom=336 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: help ----- HyperTalk script ----- on mouseUp doMenu Next end mouseUp -- part 27 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=393 top=316 right=341 bottom=507 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: porttostack ----- HyperTalk script ----- on mouseUp put bkgnd field "SelectionsA" into Aside put bkgnd field "SelectionsB" into Bside go to any card of background "TAPE" of stack "AudioVideo Library" click at location of bkgnd button "NewCard" put Aside into field "IA" put Bside into field "IB" end mouseUp -- part 29 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=335 top=289 right=310 bottom=392 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: master ----- HyperTalk script ----- on mouseUp go to first card of stack "AudioVideo Library" end mouseUp -- part 30 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=380 top=0 right=20 bottom=454 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: New Button ----- HyperTalk script ----- on mouseDown send mouseDown to field "tapeLength" end mouseDown -- part contents for background part 11 ----- text ----- 90 min -- part contents for card part 11 ----- text ----- port to label -- part contents for card part 12 ----- text ----- port to stack -- part contents for card part 13 ----- text ----- help -- part contents for background part 4 ----- text ----- 45:00 -- part contents for background part 8 ----- text ----- -00:00 -- part contents for background part 9 ----- text ----- 45:00 -- part contents for background part 36 ----- text ----- clear -- part contents for card part 18 ----- text ----- calc -- part contents for background part 3 ----- text ----- -00:00 -- part contents for background part 38 ----- text ----- master